home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Web Clips Gallery 98
/
web clips 98.iso
/
MIX
/
UNIT1.~PA
< prev
next >
Wrap
Text File
|
1998-03-23
|
1KB
|
65 lines
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls,ShellAPI;
type
TForm1 = class(TForm)
Panel1: TPanel;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
procedure Image2Click(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure Image4Click(Sender: TObject);
procedure Image5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Image2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Image3Click(Sender: TObject);
begin
winexec('explorer \',SW_ShowNormal);
end;
procedure TForm1.Image4Click(Sender: TObject);
begin
winexec('\msie\setup.exe',sw_ShowNormal);
end;
procedure TForm1.Image5Click(Sender: TObject);
var fs,fn,fd:Array[0..255] of Char;
temps:String;
begin
getdir(0,temps);
strpcopy(fs,temps);
strpcopy(fn,'home.htm');
FindExecutable(fn,fs,fd);
temps:=' \home.htm';
strpcopy(fs,fd+temps);
winexec(fs,SW_ShowNormal);
end;
end.